 
C     $Id: gfloat.F 17 2012-12-07 05:10:30Z wangsl2001@gmail.com $
*Deck GFloat
      function gfloat (iarg)
      real*8 gfloat
c
c     integer to working-precision conversion
c
      gfloat=dfloat(iarg)
      return
      end
